Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir43/qsrc_dsk.zip/MODEL/PRODUCT/PRODUCT.APP

MS Visual FoxPro App | 1991-12-22 | 30KB | 553 lines

appview
foxapp
appproc.prg
DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
BAILOUTf
DBFNAMEf
WIN_NAMEf
FILT_EXPRf
SRCHTERMf
D:\FP2\MODEL\PRODUCT.DBF
APPMENU.PRG
Please locate the F
 database
 database;could not be found.
PRODUCT
{PGDN}
product1.spr
APPVIEW
FOXAPP
APPPROC
BAILOUT
DBFNAME
WIN_NAME
FILT_EXPR
SRCHTERM
APPMENU
JUSTSTEM
ALERT
CLEANUP
APPCTRL
PRODUCT1
appview.vue2
appview
appview.vue
foxapp.fky2
foxapp
foxapp.fky
APPVIEW
FOXAPP
CLEANUP
FILNAME
PNAME
JUSTPATH
JUSTFNAME
ADDBS
FILNAME
FILNAME
FILNAME
JUSTFNAME
FILNAME
PATHNAME
COMPATIBLEz
SAFETYz
Indexing on
INDEX ON &fldname TAG (m.fldname)
FILNAME
COMP_STAT
SAFE_STAT
IN_AREA
FSTEM
JUSTSTEM
FLDNAME
Please locate the F
 database
FNAME
JUSTSTEM
WIND_NAME
TALKz
CONSOLEz
IN_TALK
IN_CONS
NUMLINES
ALERT_ARRYREMAIN
"MAXLEN
TOP_ROW
RYBOT_ROW
TOP_COL
BOT_COL
ALERT
KEYCODE
That display mode is not available on your computer.
Line No.: FF
Program:
  Error:
 Source:
E_PROGRAM
E_MESSAGE
E_SOURCE
E_LINENO
E_ERROR
RYALERT
"FORCEEXT
JUSTFNAME
JUSTSTEM
JUSTEXT
JUSTPATH
ADDBS
INVERT
OPENDBF
ACTWIN
ALERT
APPERROR
SKIPVARf
\<System
ALT+S
\<Edit
ALT+E
\<Application
ALT+A
\<Utilities
ALT+U
\<About...
\<Help...
\<Macros
\<Calculator
Calendar/\<Diary
Pu\<zzle
\<Quit
DO _px90nlfsw     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlfwe     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
Cu\<t
CTRL+X
\<Copy
CTRL+C
\<Paste
CTRL+V
Clear
Select \<All
CTRL+A
\<Preferences...
\<Top
\<Bottom
\<Next
\<Prior
\<Add record
\<Copy record
\<Delete record
CTRL+D
Bro\<wse
CTRL+B
\<Search...
CTRL+S
\<Filter...
CTRL+F
\<Order...
CTRL+O
\<Query...
EXEFl
CTRL+Q
\<Report...
CTRL+R
DO _px90nlgpl     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlgrm     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlgtn     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlgvn     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlgxw     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlgzw     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlh1y     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlh46     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlh67     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlh87     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlha8     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlhch     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO prtopts
\<Construct index
\<Pack
\<Environment
DO _px90nlhl0     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlhn2     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
\<Status Bar
\<Clock
\<Extended video
S\<ticky
DO _px90nlhvi     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlhxl     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nlhzl     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _px90nli1l     IN LOCFILE("MENUS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
STATUSz
CLOCKz
STICKYz
SKIPVAR
_PX90NLFAJ_PX90NLFBO_PX90NLFCM_PX90NLFEOSYSTEM
FAJEDIT
NLFBOAPPLIC
FCMUTILITIES
ENVIRO
APPABOUT
BAILOUT
APPCTRL
Bottom of file
Top of file
IF !EMPTY(&fldname)
The current record is already blank.
ALLBLANK
X90NLFAJFLDNAME
BOACTWIN
MWIN_NAME
ACTWIN
WIN_NAME
enter
KEYBOARD(CHR(23))
enter
SKIPVAR
ENTER
JACTWIN
BOWIN_NAME
APPSRCH
Filter Expression
SET FILTER TO &filt_expr
No records match that filter
ORIG_REC
FILT_EXPR
No indexes were found
GETORDER
Query name
Please locate the database
SKIPVAR
QNAME
FORCEEXT
DBFNAME
MWIN_NAME
OOPENDBF
Reindexing completed
INVERT
Pack completed
ENVIROFp
MARKSET
ENVIRO
ENVIROFp
MARKSET
ENVIRO
ENVIROFp
MARKSET
ENVIRO
ENVIROFp
MARKSET
ENVIRO
_PX90NLFSW
_PX90NLFWE
_PX90NLGPL
_PX90NLGRM
_PX90NLGTN
_PX90NLGVN
_PX90NLGXW
_PX90NLGZW
_PX90NLH1Y
_PX90NLH46
_PX90NLH67
_PX90NLH87
_PX90NLHA8
_PX90NLHCH
_PX90NLHL0
_PX90NLHN2
_PX90NLHVI
_PX90NLHXL
_PX90NLHZL
_PX90NLI1L
TALKz
COMPATIBLEz
_pwp0uj0lc
PRINTER
PRINTz
_pwp0uj0lc
Print to:
Printer Setup:
@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3
@*HN File...
@*RVN Print On;Print Off
@*HT \!OK
@*HT \?Cancel
@*C Printer Driver Setup...
Left Margin:
Right Margin:
_pwp0uj0lc
SET PRINTER TO &pdest
CURRAREA
TALKSTAT
COMPSTAT
_PWP0UJ0LCPFILNAME
PDEST
ORIGDEST
PRT_INFILEPRTSTAT
ORIGPRTSTAPDRIVSTUP
_PWP0UJ220FLIST
A_PWP0UJ2GJ_PWP0UJ2X8_PWP0UJ3C4_PWP0UJ3OYOKBUT
CANCBUT
a_PWP0UJ44W_PWP0UJ4KT_PWP0UJ4L2/
PDEST
Print to:
FLIST
ORIGFILE
PFILNAME
PDEST
PFILNAME
PDEST
PDRIVSTUP
CURRWIND
PDEST
PFILNAME
OKBUT
C_PWP0UJ220
_PWP0UJ2GJ
_PWP0UJ2X8
_PWP0UJ3C4
_PWP0UJ3OY
_PWP0UJ44W
_PWP0UJ4KT
_PWP0UJ4L2
TALKz
COMPATIBLEz
_px00mgt90
_px00mgt90
@*RVN Screen;Printer;File
@*VT \!OK
Report destination:
@*HT \?Cancel
_px00mgt90
CURRAREA
ETALKSTAT
JCOMPSTAT
A_PX00MGT90REPBUT
ENVREPDEST
OKBUT
A_PX00MGU2G_PX00MGUHRCANCLBUT
B_PX00MGUZV_PX00MGV04_PX00MGV0E7
REPBUT
EREPDEST
REPDEST
EOKBUT
REPBUT
EREPDEST
CURRWIND
EREPBUT
JREPDEST
AOKBUT
90_PX00MGU2G
_PX00MGUHR
_PX00MGUZV
_PX00MGV04
_PX00MGV0E
TALKz
COMPATIBLEz
_pwi100i4x
tagnumf
_pwi100i4x
@*VT \!OK;\?Cancel
Index order:
_pwi100i4x
CURRAREA
`TALKSTAT
COMPSTAT
_PWI100I4XTAGNUM
STARTORD
NUMTAG
P2\IDXTAGS
ROCORDBUT
4X_PWI100JHZ
_PWI100JHZ
TALKz
COMPATIBLEz
_pwi0zz6q5
_pwi0zz6q5
This application was generated by
FoxApp 1.0
Copyright (c) Fox Holdings 1991
_pwi0zz6q5
CURRAREA
ETALKSTAT
JCOMPSTAT
A_PWI0ZZ6Q50
TALKz
COMPATIBLEz
_pwp0yzg8d
srchtermf
CURSORzj
_pwp0yzg8d
Search for:
@*VN \!OK;\?Cancel
_pwp0yzg8d
CURRAREA
ATALKSTAT
COMPSTAT
_PWP0YZG8DSRCHTERM
OKSRCH
FLDNUM
FLDARRY
FLDCNT
STARTORD
CURORD
FLDNAME
CURS_STAT
_PWP0YZHPW_PWP0YZI30_PWP0YZIGV_PWP0YZJDE
FLDNAME
DNAME
Searching.  This may take a few moments.
Searching
SRCHTERM
FLDNAME
AFLDNUM
TAGNUM
GETTAG
CASE TYPE("&fldname") $ "CM"
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
CASE TYPE("&fldname") $ "FN"
LOCATE FOR VAL(ALLTRIM(m.srchterm)) = &fldname
CASE TYPE("&fldname") = "D"
{}"()
LOCATE FOR CTOD(srchterm) = &fldname
CASE TYPE("&fldname") = "L"
LOCATE FOR &fldname
LOCATE FOR !&fldname
CASE TYPE("&fldname") = "U"
Field
 not found
Not found
Found it!
OKSRCH
ASRCHTERM
TAGNUM
GETTAG
G8DFLDNAME
WAITMSG
THISREC
STARTORD
GETTAG
WAITMSG
_PWP0YZHPW
_PWP0YZI30
_PWP0YZIGV
_PWP0YZJDE
ACT3f
@*HN \<Top;\<Prior;\<Next;\<Bottom;\<Search;\<Quit
VCOORD
AHCOORD
APPCTRL
G8DAPPCTRL1
TALKz
COMPATIBLEz
_px00meume
_px00meume
@*RVN Use current printer driver;Use report printer driver;Use no printer driver
@*RVN Modify report;Printer setup;Print report
@*HN \!OK;\?Cancel
@*RVN Create report
@*RVN Form layout;Columnar layout
_px00meume
CURRAREA
ATALKSTAT
COMPSTAT
_PX00MEUMECREATERB
REPTRB
LAYOUTRB
PDRIVR
LASTPD
PDRIVRB
ME_PX00MEVUMOKCANCL
_PX00MEWEO_PX00MEX4L
Report form
READY
The printer is not ready.
Printing report...
REPORT FORM (m.repname) TO PRINT NOCONSOLE &reptparm
Report printed!
Printing report...
REPORT FORM (m.repname) TO PRINT NOCONSOLE &reptparm
Report printed!
Printing to
REPTPARM
AREPNAME
STARTREC
REPBUT
MEREPDEST
OKBUT
GETDEST
STARTWIN
WIN_STRING
REPTRB
ALASTPD
PDRIVRB
CREATERB
ELAYOUTRB
Report form
PDRIVER
OKCANCL
ACREATERB
REPNAME
LAYOUTRB
EDBFNAME
REPTRB
PRTSETUP
PDRIVRB
PUTPRT
CREATERB
AREPTRB
PDRIVRB
LAYOUTRB
EPUTPRT
_PX00MEVUM
_PX00MEWEO
_PX00MEX4L
Top of file
Bottom of file
APPSRCH
BAILOUT
TALKz
COMPATIBLEz
 PRODUCT
product
Prodcode
@! AAA99
Product code cannot be empty.
Product code already in use.8
Prodname
product
CURRAREA
TALKSTAT
rCOMPSTAT
oPRODUCT
gPRODCODE
y_Q1F0WYNFRPRODNAME
prodcode
PRODCODE
MCODE
rMRETURN
oMREC
gMORDER
y_Q1F0WYNFR
STARTUP.PRG
D:\FP2\GOODIES\FOXAPP\APPPROC.PRG
D:\FP2\GOODIES\FOXAPP\APPMENU.PRG
D:\FP2\GOODIES\FOXAPP\PRTSETUP.PRG
D:\FP2\GOODIES\FOXAPP\GETDEST.PRG
D:\FP2\GOODIES\FOXAPP\GETORDER.PRG
D:\FP2\GOODIES\FOXAPP\APPABOUT.PRG
D:\FP2\GOODIES\FOXAPP\APPSRCH.PRG
D:\FP2\GOODIES\FOXAPP\APPCTRL.PRG
D:\FP2\GOODIES\FOXAPP\PRTOPTS.PRG
D:\FP2\GOODIES\FOXAPP\APPCTRL1.PRG
PRODUCT1.SPR
STARTUP.FXP
APPPROC.FXP
APPMENU.FXP
PRTSETUP.FXP
GETDEST.FXP
GETORDER.FXP
APPABOUT.FXP
APPSRCH.FXP
APPCTRL.FXP
PRTOPTS.FXP
APPCTRL1.FXP
PRODUCT1.SPX